【例】单击某命令按钮输出3～100之间的所有奇数、奇数之和。将奇数显示于带垂直滚动条的文本框中，奇数之和显示于另一个文本框中。
分析：带垂直滚动条的文本框Text1的属性设置如下
MultiLine: True ScrollBars: 2-Vertical
程序运行效果如下图所示：
程序源码：
Option Explicit Private Sub Comma ......
【例一】用文本框输入n值，单击命令按钮求S=4×(1-1/3+1/5-1/7+1/9-…+(-1)n+1×(1/(2n-1)))，结果显示于标签中。
程序运行效果如下图所示：
程序源码：
Option Explicit Private Sub Command1_Click() Dim S As Single, n As Inte ......
【例一】求11+22+33+…NN小于100000的最大值。
程序源码：
Option Explicit Private Sub Form_Click() Dim Sum As Long, N As Integer Sum = 0: N = 0 Do While Sum < 100 ......
【例】设计界面如下图a所示，单击各按钮时输入行数，按此行数在窗体上显示不同的图形，如下图b所示。
a) 设计界面 b) 各种结果 图 打印各种图形
程序源码：
Option Explicit Dim HangShu As Integer, I As Integer, J As Integer
' 平行四边形 Private S ......
【例一】求，即求1!+2!+3!+4!+…+20!。
程序源码：
Option Explicit Private Sub Form_Click() Dim N As Integer, I As Integer, Sum As Double, ChengJi As Double Sum = 0 &nb ......
【例】“水仙花数”是指一个3位数，其各位数的立方和等于该数，如153=13+53+33，编写程序，打印出100～1000之间的所有水仙花数。
程序源码：
Option Explicit Private Sub Form_Click() Dim I As Integer, GeWei As Integer, ShiWei As Integer, BaiWei ......
【例】分别按以下要求求ex≈1+(x/1!)+(x2/2!)+(x3/3!)+…+(xn/n!)
1）直到第20项。
2）直到最后一项小于10-6。
X的值由输入框输入。
程序源码一（计算分数序列的前20项累加和）：
Option Explicit Private Sub Form_Click() Dim I As Integer, IJC As Do ......
【例】用以下公式求sin(x)的近似值，当最后一项小于10-7时停止计算，X的值由键盘输入。
分析：用FuHao表示(-1)n-1
用JieCheng表示(2n-1)!
用FeiZi表示x2n-1
用Term表示每一项的值，则Term=FuHao*(FeiZi/JieCheng)
SinX表示sin(x)的近似值
循环初始条件：SinX = 0，N = ......
【例】设计如下图所示的界面，在窗体上画两个框架（Frame），分别在其中放置两组选项按钮（注意，移动框架时其中的选项按钮应能与框架一起移动），中间为一红色长方形。运行时，单击颜色按钮用于改变中间的图形的颜色（FillColor属性），单击形状按钮用于改变中间的图形的形状（Shape属性）,shape1的backStyle炫耀选择1。
图 改变图形的颜色与形状
程序源码：
' ......
【例】在窗体上先画两个图片框Picture1和Picture2，在Picture1中放四个选项按钮Option1(0)、Option1(1)、Option1(2)和Option1(3)（注意，移动图片框时选项按钮应能与图片框一起移动）；设置各个选项按钮的Style属性为1-Graphical，使它们成为按钮的形状；修改各个选项按钮的Caption属性，使它们分别为“宋体”、“楷体”、“黑体”和“隶 ......
例】在窗体上先画两个图片框Picture1和Picture2，在Picture1中放四个选项按钮Option1(0)、Option1(1)、Option1(2)和Option1(3)（注意，移动图片框时选项按钮应能与图片框一起移动）；设置各个选项按钮的Style属性为1-Graphical，使它们成为按钮的形状；修改各个选项按钮的Caption属性，使它们分别为“宋体”、“楷体”、“黑体”和“隶书 ......
【例】在窗体上放一个文本框，四个组合框，如下图a所示。按以下要求设计应用程序。
a) 设计界面 b) 运行界面 图 组合框的使用
1）将用于设置文本框文字颜色的组合框（命名为:ComboTextC）的Style属性设置为2（下拉列表框），列表包括白、黑、红、绿、蓝、黄。
2）将用于设置文本框背景颜 ......
【例一】每隔2min在文本框新的一行上输出当前的系统时间及生成的10个（0，100）之间的随机整数，文本框带双向滚动条。
分析：由于定时器（Timer）的Interval属性的最大值为65535ms，要使程序能够间隔2min执行相关操作，就只能借用对系统时间的判断。本例中我们将Interval属性设置为1000，也就是说每隔一秒对系统时间进行一次判断，如果当前时间与起始时间的间隔达到了2min ......
【例一】在窗体上放置一滚动条，设置其Max属性值为100，Min属性值为0，LargeChange属性为10，SmallChange属性为5，当滚动条滚动时可以在标签上显示当前滚动条的值。
运行效果如下图所示：
分析：假设窗体上用于显示滚动条当前值的标签为Label1。
程序代码：
Private Sub Form_Load() Labe ......